Year 61 - Lazy Pathways

-- 7 Billion Humans (2235) --
-- 61: Lazy Pathways by @soerface and @abfipes12 --

a:
step nw,w,sw,ne,se
mem3 = nearest datacube
if mem3 == datacube and
 mem3 <= 9:
	mem1 = calc mem3 + 1
	mem2 = foreachdir nw,w,sw,n,s,ne,e,se:
		if mem2 == datacube and
		 mem2 > mem1:
			pickup mem2
			write mem1
			drop
			step mem3
		endif
	endfor
endif
jump a